What PC? 1996 July/WPCJUL96.ISO/file.exe/SHARED.DXR/01070_ADDAdvert Frame.ls

Text File | 1996-05-15 | 543 b | 22 lines

on exitFrame
  global addlist, addPallist, ADDMouse, ADDThisNum, ADDKindList, REFAddWatch, REFaddPallist, REFaddlist, REFADDKindList
  go(the frame)
  if REFAddWatch = 0 then
    if getAt(ADDKindList, ADDThisNum) = 1 then
      ADDPlayVideo()
    else
      if getAt(ADDKindList, ADDThisNum) = 2 then
        ADDPlaceAd()
      end if
    end if
  else
    if getAt(REFADDKindList, ADDThisNum) = 1 then
      ADDPlayVideo()
    else
      if getAt(REFADDKindList, ADDThisNum) = 2 then
        ADDPlaceAd()
      end if
    end if
  end if
end